home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / rat_js < prev    next >
Internet Message Format  |  1995-03-31  |  16KB
  1. From: Jeremy Smith <smithj@jacobs.CS.ORST.EDU>
  2. Subject:  v05i026:  rat_js - Rat v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 3341477900 (verify with brik -cv)
  8. Submitted-by: Jeremy Smith <smithj@jacobs.CS.ORST.EDU>
  9. Posting-number: Volume 5, Issue 26
  10. Archive-name: rat_js/part01
  11.  
  12.  
  13. BEGIN_DOC rat.doc
  14. Sometimes the rat is a little shy initially.  Please be patient.
  15. END_DOC
  16.  
  17. BEGIN_RPL rat.rpl
  18. %%HP: T(3)A(D)F(.); @ `rat' Jeremy |-) Smith 5/27/92
  19. \<<
  20. GROB 32 12 00000000000000000000000000000000002C3000007E70000CFFF0000EFFF1000FFFFF3000FF70C800E0700700381000
  21. GROB 32 12 00000000000000000000000000000000002C3000007E700608FFF0090CFFF1010EFFF30100FF740100E0788000381070
  22. GROB 32 12 00000000000000000000000000000000002C3000006E700000FFF00008FFF1000CFFF1830EFF724C00E0742000381810
  23. GROB 32 12 00033000000F3000000F1000008F100000CF3000000F3000000F7000008FF008008FFC04008FF312008FF0E1000F7000
  24. GROB 32 12 00036000000F7000000E3000000C1E10000E3120000FB040000F7080008FF080008FF040008FF040008FF030000F7800
  25. GROB 32 12 00036000000F7000000E3000000C10000E1E3000012F3000804F7000808FF00080AFF000039FF0000C8FF000000F7000
  26. GROB 32 12 00066000000E7000000CF000000CF100000EF000000F30000E1F700001AFF000A0CFF000508FF000A88FF000070F7000
  27. GROB 32 12 00000000000000000000000000000000000E3400000F7E00008FFF3000CFFF700EFFFFF0110FF700E0078300000C0600
  28. GROB 32 12 00000000000000000000000000000000000E3400000F7E000E8FFF1001DFFF3080EFFF70900FF70060078300000C0600
  29. GROB 32 12 00000000000000000000000000000000000E3400000F7600708FFF0080CFFF1001CFFF30012FFF700E178300000C0600
  30. LCD\-> DUP PICT STO { # 0h # 0h } PVIEW { # 82h # 2h } PATH \->STR SIZE 4.5 * \-> i
  31.   \<<
  32.     DO 'i' DECR R\->B # 9h 2 \->LIST
  33.     UNTIL PIX?
  34.     END i
  35.   \>> \-> rat1 rat2 rat3 rat4 rat5 rat6 rat7 rat8 rat9 rat10 lcd position food
  36.   \<<
  37.     \<< lcd position ROT GOR PICT { # 0h # 0h } ROT REPL
  38.     \>>
  39.     \<< position EVAL SWAP B\->R RAND 7 *
  40.       IF 57 FC?
  41.       THEN
  42.         IF 59 FS?
  43.         THEN -
  44.         ELSE +
  45.         END
  46.       ELSE
  47.         IF 58 FC?
  48.         THEN -
  49.         ELSE +
  50.         END
  51.       END 130 MIN R\->B SWAP 2 \->LIST 'position' STO
  52.     \>> \-> blip move
  53.     \<<
  54.       WHILE KEY NOT 56 FS? XOR
  55.       REPEAT RAND 10 * .5 + 0 RND \-> rant
  56.         \<<
  57.           CASE 'rant<4'
  58.             THEN 59
  59.               IF FS?
  60.               THEN move EVAL
  61.               END 59 SF
  62.               IF RAND 0 RND
  63.               THEN rat1 blip EVAL rat3 blip EVAL rat1 blip EVAL rat3 blip EVAL rat1 blip EVAL
  64.               END
  65.               IF 57 FC?
  66.               THEN position EVAL DROP B\->R DUP food 5 +
  67.                 IF \<=
  68.                 THEN 57 SF food 2 - SWAP
  69.                   START position EVAL SWAP B\->R 1 - R\->B SWAP 2 \->LIST 'position' STO rat1 blip EVAL
  70.                   NEXT PICT food R\->B # 7h 2 \->LIST GROB 3 4 60705000 REPL food R\->B # 9h 2 \->LIST lcd SWAP GROB 1 1 00 REPL 'lcd' STO rat1 blip EVAL
  71.                 ELSE DROP
  72.                 END
  73.               END
  74.             END 'rant\<=7'
  75.             THEN 59 CF 58 CF
  76.               IF RAND 0 RND
  77.               THEN rat7 blip EVAL rat6 blip EVAL 
  78.                 IF 57 FS?
  79.                 THEN rat5 blip EVAL
  80.                 END rat4 blip EVAL
  81.                 IF 57 FS?
  82.                 THEN rat7 blip EVAL
  83.                 END
  84.               END
  85.             END '7<rant'
  86.             THEN 58
  87.               IF FS?
  88.               THEN move EVAL
  89.               END 58 SF
  90.               IF RAND 0 RND
  91.               THEN rat8 blip EVAL rat9 blip EVAL rat8 blip EVAL rat10 blip EVAL rat8 blip EVAL
  92.               END
  93.               IF 57 FS? position EVAL DROP B\->R 95 > AND
  94.               THEN 56 SF rat9 blip EVAL position EVAL DROP 9 + DUP 1 + # Ch 2 \->LIST DUP ROT # Dh 2 \->LIST
  95.                 \<< lcd SWAP GROB 1 1 10 REPL 'lcd' STO position EVAL SWAP 1 + SWAP 2 \->LIST 'position' STO rat9 blip EVAL
  96.                 \>> SWAP OVER EVAL EVAL
  97.                 \<< position EVAL SWAP B\->R 6 + 130 MIN R\->B SWAP 2 \->LIST 'position' STO rat10 blip EVAL rat9 blip EVAL rat8 blip EVAL
  98.                 \>> DUP DUP EVAL EVAL EVAL
  99.                 IF RAND 0 RND
  100.                 THEN lcd SWAP GROB 1 2 0010 REPL 
  101.                 ELSE DROP lcd
  102.                 END PICT { # 0h # 0h } ROT REPL
  103.               END
  104.             END
  105.           END
  106.           IF 56 FC?
  107.           THEN "rat" rant + OBJ\-> blip EVAL
  108.           END
  109.         \>>
  110.       END 57 CF 58 CF 59 CF
  111.       IF 56 FS?C
  112.       THEN 0 FREEZE
  113.       ELSE DROP
  114.       END
  115.     \>>
  116.   \>>
  117. \>>
  118. END_RPL
  119.  
  120. BYTES: #A207h 2769
  121.  
  122. BEGIN_ASC rat.asc
  123. %%HP: T(3)A(D)F(.);
  124. "D9D20E1632E1B20F6000C0000020000000000000000000000000000000000000
  125. 2C3000007E70000CFFF0000EFFF1000FFFFF3000FF70C800E0700700381000E1
  126. B20F6000C00000200000000000000000000000000000000000002C3000007E70
  127. 0608FFF0090CFFF1010EFFF30100FF740100E0788000381070E1B20F6000C000
  128. 00200000000000000000000000000000000000002C3000006E700000FFF00008
  129. FFF1000CFFF1830EFF724C00E0742000381810E1B20F6000C000002000000330
  130. 00000F3000000F1000008F100000CF3000000F3000000F7000008FF008008FFC
  131. 04008FF312008FF0E1000F7000E1B20F6000C00000200000036000000F700000
  132. 0E3000000C1E10000E3120000FB040000F7080008FF080008FF040008FF04000
  133. 8FF030000F7800E1B20F6000C00000200000036000000F7000000E3000000C10
  134. 000E1E3000012F3000804F7000808FF00080AFF000039FF0000C8FF000000F70
  135. 00E1B20F6000C00000200000066000000E7000000CF000000CF100000EF00000
  136. 0F30000E1F700001AFF000A0CFF000508FF000A88FF000070F7000E1B20F6000
  137. C00000200000000000000000000000000000000000000E3400000F7E00008FFF
  138. 3000CFFF700EFFFFF0110FF700E0078300000C0600E1B20F6000C00000200000
  139. 000000000000000000000000000000000E3400000F7E000E8FFF1001DFFF3080
  140. EFFF70900FF70060078300000C0600E1B20F6000C00000200000000000000000
  141. 000000000000000000000E3400000F7600708FFF0080CFFF1001CFFF30012FFF
  142. 700E178300000C0600275E178BF1634E1DCC0247A20E4A205100000000000000
  143. 00000E4A20510000000000000000000B21300F2E147A20E4A205100028000000
  144. 00000000E4A20510002000000000000000B2130521A1B0BC18B9C13392000000
  145. 00000000540EEDA11C432D6E201096E16323C03245632D6E20109697632AA902
  146. B9691E4A20510009000000000000000ED2A2387C1DE032E63E19B632D6E20109
  147. 6EF5321C432D6E204027164713D6E204027164723D6E204027164733D6E20402
  148. 7164743D6E204027164753D6E204027164763D6E204027164773D6E204027164
  149. 783D6E204027164793D6E20502716471303D6E2030C63646D6E208007F637964
  150. 796F6E6D6E204066F6F646E1632C9432D9D20E1632D6E2030C63646D6E208007
  151. F637964796F6E6E0CF1654E1634E147A20E4A20510000000000000000000E4A2
  152. 0510000000000000000000B2130E0CF1AE8C193632B2130C9432D9D20E1632D6
  153. E208007F637964796F6E6EB3A1DBBF1BB6919B1C1743A2EEDA13CE2233920100
  154. 0000000000750063C1AFE22D9D203CE22339201000000000000950313C1AFE22
  155. 90DA15BF2276BA15DF22B21305BF22D9D203CE22339201000000000000850063
  156. C1AFE2290DA15BF2276BA15DF22B21305DF223392020000000000003103ECB1B
  157. 9691DBBF1ED2A2387C145632D6E208007F637964796F6E697632DCC0293632B2
  158. 1301C432D6E204026C69607D6E2040D6F66756E163233032378A1F88E1339201
  159. 000000000000650313C16F8E1D5032D9D209B1C1339201000000000000010EED
  160. A133920999000000000005076BA14B2A255DB11C432D6E20402716E647E1632D
  161. 8732D9D208BA20D6E20402716E647803A2EBBE1B21308A732D9D203392010000
  162. 000000009503CE22313C1AFE22D9D20D6E2040D6F66756EB3A1B21305DF22339
  163. 201000000000000950472C13CE229B1C14B2A255DB1AFE22D9D20D6E20402716
  164. 4713D6E204026C69607EB3A1D6E204027164733D6E204026C69607EB3A1D6E20
  165. 4027164713D6E204026C69607EB3A1D6E204027164733D6E204026C69607EB3A
  166. 1D6E204027164713D6E204026C69607EB3A1B21305DF223CE223392010000000
  167. 00000750063C1AFE22D9D20D6E208007F637964796F6E6EB3A18DBF1BB69178B
  168. F1D6E204066F6F646D13A276BA13CE22CFCE1AFE22D9D2033920100000000000
  169. 0750472C1D6E204066F6F646ED2A290DA1DBBF130132D6E208007F637964796F
  170. 6E6EB3A1DBBF1BB6919C2A290DA1B9691DBBF1ED2A2387C145632D6E208007F6
  171. 37964796F6E697632DCC02D6E204027164713D6E204026C69607EB3A1C423263
  172. 4E1D6E204066F6F646B9691E4A20510007000000000000000ED2A2387C1E1B20
  173. 71000400003000060705000AE8C1D6E204066F6F646B9691E4A2051000900000
  174. 0000000000ED2A2387C1D6E2030C63646DBBF1E1B2011000100001000000AE8C
  175. 145632D6E2030C6364697632DCC02D6E204027164713D6E204026C69607EB3A1
  176. B21305BF228DBF15DF22B21305DF22B21305DF228BA20D6E20402716E647743A
  177. 2CFCE1B21308A732D9D203392010000000000009505D2C133920100000000000
  178. 08505D2C13CE229B1C14B2A255DB1AFE22D9D20D6E204027164773D6E204026C
  179. 69607EB3A1D6E204027164763D6E204026C69607EB3A13CE2233920100000000
  180. 0000750313C1AFE22D9D20D6E204027164753D6E204026C69607EB3A1B21305D
  181. F22D6E204027164743D6E204026C69607EB3A13CE22339201000000000000750
  182. 313C1AFE22D9D20D6E204027164773D6E204026C69607EB3A1B21305DF22B213
  183. 05DF22B21305DF228BA20743A2D6E20402716E647EBBE1B21308A732D9D20339
  184. 2010000000000008503CE22313C1AFE22D9D20D6E2040D6F66756EB3A1B21305
  185. DF22339201000000000000850472C13CE229B1C14B2A255DB1AFE22D9D20D6E2
  186. 04027164783D6E204026C69607EB3A1D6E204027164793D6E204026C69607EB3
  187. A1D6E204027164783D6E204026C69607EB3A1D6E20502716471303D6E204026C
  188. 69607EB3A1D6E204027164783D6E204026C69607EB3A1B21305DF223CE223392
  189. 01000000000000750313C1D6E208007F637964796F6E6EB3A18DBF1BB6913392
  190. 01000000000000590D5CE1387E1AFE22D9D20339201000000000000650472C1D
  191. 6E204027164793D6E204026C69607EB3A1D6E208007F637964796F6E6EB3A18D
  192. BF1173A276BA178BF19C2A276BA1E4A2051000C000000000000000ED2A2387C1
  193. 78BF1E0CF1E4A2051000D000000000000000ED2A2387C1C9432D9D20E1632D6E
  194. 2030C63646DBBF1E1B2011000100001000010AE8C145632D6E2030C636469763
  195. 2DCC02D6E208007F637964796F6E6EB3A1DBBF19C2A276BA1DBBF1ED2A2387C1
  196. 45632D6E208007F637964796F6E697632DCC02D6E204027164793D6E204026C6
  197. 9607EB3A193632B2130DBBF192CF1EB3A1EB3A1C9432D9D20E1632D6E208007F
  198. 637964796F6E6EB3A1DBBF1BB691233A276BA13392020000000000003103ECB1
  199. B9691DBBF1ED2A2387C145632D6E208007F637964796F6E697632DCC02D6E205
  200. 02716471303D6E204026C69607EB3A1D6E204027164793D6E204026C69607EB3
  201. A1D6E204027164783D6E204026C69607EB3A193632B213078BF178BF1EB3A1EB
  202. 3A1EB3A13CE229B1C14B2A255DB1AFE22D9D20D6E2030C63646DBBF1E1B20310
  203. 0020000100000010AE8C1B21305BF22D9D208DBF1D6E2030C63646B21305DF22
  204. 634E147A20E4A20510000000000000000000E4A20510000000000000000000B2
  205. 130E0CF1AE8C1B21305DF22B21305DF22B21305DF223CE223392010000000000
  206. 00650063C1AFE22D9D20C2A20B0000271647D6E20402716E64776BA1B7FC1D6E
  207. 204026C69607EB3A1B21305DF22EF532B2130496323392010000000000007505
  208. D2C13392010000000000008505D2C13392010000000000009505D2C13CE22339
  209. 2010000000000006501A4C1AFE22D9D204B2A24A5A1B21305BF228DBF15DF22E
  210. F532EF53293632B2130702A"
  211. END_ASC
  212.  
  213.  
  214. BYTES: #A207h 2767
  215.  
  216. BEGIN_UU rat.uue
  217. begin 644 rat
  218. M)25(4#H@5"@S*4$H1"E&*"XI.PT*7#P\#0I'4D]"(#,R(#$R(#`P,#`P,#`P
  219. M,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`R0S,P,#`P,#=%-S`P,#!#1D9&
  220. M,#`P,$5&1D8Q,#`P1D9&1D8S,#`P1D8W,$,X,#!%,#<P,#<P,#,X,3`P,`T*
  221. M1U)/0B`S,B`Q,B`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P
  222. M,D,S,#`P,#`W13<P,#8P.$9&1C`P.3!#1D9&,3`Q,$5&1D8S,#$P,$9&-S0P
  223. M,3`P13`W.#@P,#`S.#$P-S`-"D=23T(@,S(@,3(@,#`P,#`P,#`P,#`P,#`P
  224. M,#`P,#`P,#`P,#`P,#`P,#`P,#)#,S`P,#`P-D4W,#`P,#!&1D8P,#`P.$9&
  225. M1C$P,#!#1D9&,3@S,$5&1C<R-$,P,$4P-S0R,#`P,S@Q.#$P#0I'4D]"(#,R
  226. M(#$R(#`P,#,S,#`P,#`P1C,P,#`P,#!&,3`P,#`P.$8Q,#`P,#!#1C,P,#`P
  227. M,#!&,S`P,#`P,$8W,#`P,#`X1D8P,#@P,#A&1D,P-#`P.$9&,S$R,#`X1D8P
  228. M13$P,#!&-S`P,`T*1U)/0B`S,B`Q,B`P,#`S-C`P,#`P,$8W,#`P,#`P13,P
  229. M,#`P,#!#,44Q,#`P,$4S,3(P,#`P1D(P-#`P,#!&-S`X,#`P.$9&,#@P,#`X
  230. M1D8P-#`P,#A&1C`T,#`P.$9&,#,P,#`P1C<X,#`-"D=23T(@,S(@,3(@,#`P
  231. M,S8P,#`P,#!&-S`P,#`P,$4S,#`P,#`P0S$P,#`P13%%,S`P,#`Q,D8S,#`P
  232. M.#`T1C<P,#`X,#A&1C`P,#@P049&,#`P,#,Y1D8P,#`P0SA&1C`P,#`P,$8W
  233. M,#`P#0I'4D]"(#,R(#$R(#`P,#8V,#`P,#`P13<P,#`P,#!#1C`P,#`P,$-&
  234. M,3`P,#`P148P,#`P,#!&,S`P,#!%,48W,#`P,#%!1D8P,#!!,$-&1C`P,#4P
  235. M.$9&,#`P03@X1D8P,#`P-S!&-S`P,`T*1U)/0B`S,B`Q,B`P,#`P,#`P,#`P
  236. M,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,$4S-#`P,#`P1C=%,#`P,#A&1D8S
  237. M,#`P0T9&1C<P,$5&1D9&1C`Q,3!&1C<P,$4P,#<X,S`P,#`P0S`V,#`-"D=2
  238. M3T(@,S(@,3(@,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#`P,#!%
  239. M,S0P,#`P,$8W13`P,$4X1D9&,3`P,41&1D8S,#@P149&1C<P.3`P1D8W,#`V
  240. M,#`W.#,P,#`P,$,P-C`P#0I'4D]"(#,R(#$R(#`P,#`P,#`P,#`P,#`P,#`P
  241. M,#`P,#`P,#`P,#`P,#`P,#`P13,T,#`P,#!&-S8P,#<P.$9&1C`P.#!#1D9&
  242. M,3`P,4-&1D8S,#`Q,D9&1C<P,$4Q-S@S,#`P,#!#,#8P,`T*3$-$7"T^($15
  243. M4"!024-4(%-43R![#0HC(#!H(",@,&@@?2!05DE%5R![#0HC(#@R:"`C(#)H
  244. M('T@4$%42`T*7"T^4U12(%-)6D4@-"XU("H@7"T^(&D-"B`@7#P\#0H@("`@
  245. M1$\@)VDG($1%0U(@4EPM/D(-"B,@.6@@,B!<+3Y,25-4#0H@("`@54Y424P@
  246. M4$E8/PT*("`@($5.1"!I#0H@(%P^/B!<+3X@<F%T,2!R870R#0IR870S(')A
  247. M=#0@<F%T-2!R870V#0IR870W(')A=#@@<F%T.0T*<F%T,3`@;&-D('!O<VET
  248. M:6]N#0IF;V]D#0H@(%P\/`T*("`@(%P\/"!L8V0@<&]S:71I;VX-"E)/5"!'
  249. M3U(@4$E#5"![(",@,&@-"B,@,&@@?2!23U0@4D503`T*("`@(%P^/@T*("`@
  250. M(%P\/"!P;W-I=&EO;B!%5D%,#0I35T%0($)<+3Y2(%)!3D0@-R`J#0H@("`@
  251. M("!)1B`U-R!&0S\-"B`@("`@(%1(14X-"B`@("`@("`@248@-3D@1E,_#0H@
  252. M("`@("`@(%1(14X@+0T*("`@("`@("!%3%-%("L-"B`@("`@("`@14Y$#0H@
  253. M("`@("!%3%-%#0H@("`@("`@($E&(#4X($9#/PT*("`@("`@("!42$5.("T-
  254. M"B`@("`@("`@14Q312`K#0H@("`@("`@($5.1`T*("`@("`@14Y$(#$S,"!-
  255. M24X-"E)<+3Y"(%-705`@,B!<+3Y,25-4#0HG<&]S:71I;VXG(%-43PT*("`@
  256. M(%P^/B!<+3X@8FQI<"!M;W9E#0H@("`@7#P\#0H@("`@("!72$E,12!+15D@
  257. M3D]4#0HU-B!&4S\@6$]2#0H@("`@("!215!%050@4D%.1`T*,3`@*B`N-2`K
  258. M(#`@4DY$(%PM/@T*<F%N=`T*("`@("`@("!</#P-"B`@("`@("`@("!#05-%
  259. M("<-"G)A;G0\-"<-"B`@("`@("`@("`@(%1(14X@-3D-"B`@("`@("`@("`@
  260. M("`@248-"D93/PT*("`@("`@("`@("`@("!42$5.#0IM;W9E($5604P-"B`@
  261. M("`@("`@("`@("`@14Y$#0HU.2!31@T*("`@("`@("`@("`@("!)1@T*4D%.
  262. M1"`P(%).1`T*("`@("`@("`@("`@("!42$5.#0IR870Q(&)L:7`@159!3"!R
  263. M870S#0IB;&EP($5604P@<F%T,2!B;&EP#0I%5D%,(')A=#,@8FQI<"!%5D%,
  264. M#0IR870Q(&)L:7`@159!3`T*("`@("`@("`@("`@("!%3D0-"B`@("`@("`@
  265. M("`@("`@248@-3<-"D9#/PT*("`@("`@("`@("`@("!42$5.#0IP;W-I=&EO
  266. M;B!%5D%,($123U`-"D)<+3Y2($154"!F;V]D(#4@*PT*248@7#P]#0I42$5.
  267. M(#4W(%-&(&9O;V0@,B`M#0I35T%0#0H@(%-405)4('!O<VET:6]N#0I%5D%,
  268. M(%-705`@0EPM/E(@,2`M#0I27"T^0B!35T%0(#(@7"T^3$E35`T*)W!O<VET
  269. M:6]N)R!35$\@<F%T,0T*8FQI<"!%5D%,#0H@($Y%6%0@4$E#5"!F;V]D#0I2
  270. M7"T^0B`C(#=H(#(@7"T^3$E35`T*1U)/0B`S(#0@-C`W,#4P,#`-"E)%4$P@
  271. M9F]O9"!27"T^0B`C(#EH#0HR(%PM/DQ)4U0@;&-D(%-705`-"D=23T(@,2`Q
  272. M(#`P(%)%4$P-"B=L8V0G(%-43R!R870Q(&)L:7`-"D5604P-"D5,4T4@1%)/
  273. M4`T*14Y$#0H@("`@("`@("`@("`@($5.1`T*("`@("`@("`@("`@14Y$("<-
  274. M"G)A;G1</#TW)PT*("`@("`@("`@("`@5$A%3B`U.0T*0T8@-3@@0T8-"B`@
  275. M("`@("`@("`@("`@248-"E)!3D0@,"!23D0-"B`@("`@("`@("`@("`@5$A%
  276. M3@T*<F%T-R!B;&EP($5604P@<F%T-@T*8FQI<"!%5D%,#0I)1B`U-R!&4S\-
  277. M"E1(14X@<F%T-2!B;&EP($5604P-"D5.1"!R870T(&)L:7`@159!3`T*248@
  278. M-3<@1E,_#0I42$5.(')A=#<@8FQI<"!%5D%,#0I%3D0-"B`@("`@("`@("`@
  279. M("`@14Y$#0H@("`@("`@("`@("!%3D0@)S<\#0IR86YT)PT*("`@("`@("`@
  280. M("`@5$A%3B`U.`T*("`@("`@("`@("`@("!)1@T*1E,_#0H@("`@("`@("`@
  281. M("`@(%1(14X-"FUO=F4@159!3`T*("`@("`@("`@("`@("!%3D0-"C4X(%-&
  282. M#0H@("`@("`@("`@("`@($E�I204Y$(#`@4DY$#0H@("`@("`@("`@("`@
  283. M(%1(14X-"G)A=#@@8FQI<"!%5D%,(')A=#D-"F)L:7`@159!3"!R870X(&)L
  284. M:7`-"D5604P@<F%T,3`@8FQI<`T*159!3"!R870X(&)L:7`@159!3`T*("`@
  285. M("`@("`@("`@("!%3D0-"B`@("`@("`@("`@("`@248@-3<-"D93/R!P;W-I
  286. M=&EO;B!%5D%,#0I$4D]0($)<+3Y2(#DU(#X@04Y$#0H@("`@("`@("`@("`@
  287. M(%1(14X-"C4V(%-&(')A=#D@8FQI<`T*159!3"!P;W-I=&EO;B!%5D%,#0I$
  288. M4D]0(#D@*R!$55`@,2`K#0HC($-H(#(@7"T^3$E35"!$55`-"E)/5"`C($1H
  289. M(#(@7"T^3$E35`T*7#P\(&QC9"!35T%0#0I'4D]"(#$@,2`Q,"!215!,#0HG
  290. M;&-D)R!35$\@<&]S:71I;VX-"D5604P@4U=!4"`Q("L@4U=!4`T*,B!<+3Y,
  291. M25-4("=P;W-I=&EO;B<-"E-43R!R870Y(&)L:7`@159!3`T*7#X^(%-705`@
  292. M3U9%4B!%5D%,#0I%5D%,#0I</#P@<&]S:71I;VX@159!3`T*4U=!4"!"7"T^
  293. M4B`V("L@,3,P#0I-24X@4EPM/D(@4U=!4"`R#0I<+3Y,25-4("=P;W-I=&EO
  294. M;B<-"E-43R!R870Q,"!B;&EP($5604P-"G)A=#D@8FQI<"!%5D%,(')A=#@-
  295. M"F)L:7`@159!3`T*7#X^($154"!$55`@159!3"!%5D%,#0I%5D%,#0I)1B!2
  296. M04Y$(#`@4DY$#0I42$5.(&QC9"!35T%0#0I'4D]"(#$@,B`P,#$P(%)%4$P-
  297. M"D5,4T4@1%)/4"!L8V0-"D5.1"!024-4('L@(R`P:`T*(R`P:"!](%)/5"!2
  298. M15!,#0H@("`@("`@("`@("`@($5.1`T*("`@("`@("`@("`@14Y$#0H@("`@
  299. M("`@("`@14Y$#0H@("`@("`@("`@248@-38@1D,_#0H@("`@("`@("`@5$A%
  300. M3@T*(G)A="(@<F%N="`K($]"2EPM/@T*8FQI<"!%5D%,#0H@("`@("`@("`@
  301. M14Y$#0H@("`@("`@(%P^/@T*("`@("`@14Y$(#4W($-&(#4X#0I#1B`U.2!#
  302. M1@T*("`@("`@248@-38@1E,_0PT*("`@("`@5$A%3B`P($92145:10T*("`@
  303. M("`@14Q312!$4D]0#0H@("`@("!%3D0-"B`@("!</CX-"B`@7#X^#0I</CX-
  304. !"CX-
  305. `
  306. end
  307. sum -r/size 1429/5358 section (from "begin" to "end")
  308. sum -r/size 658/3871 entire input file
  309. END_UU
  310. It was a long Memorial Weekend
  311. smithj@jacobs.cs.orst.edu
  312.  
  313.